library(tidyverse)
library(DeclareDesign)
library(rdss)

set.seed(42)

sims <- 2000
bootstrap_sims <- 2000

source("code/declarations/declaration_9.4.R")

diagnosis_9.4 <- diagnose_designs(declaration_9.4, sims = sims, bootstrap_sims = bootstrap_sims)



write_rds(diagnosis_9.4, file = "diagnosis_objects/diagnosis_9.4.rds")

